home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed15.d64 / lesson 14 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  258 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [141]82:[141]90
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 14                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"           (null)WO (null)TEP (null)ROBLEMS  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  RIGHT$ GAVE THE GROCER A 20 DOLLAR BILL
  51. 210 PRINT"  WHEN [201] BOUGHT 3 KILOS OF SUGAR AT       $1.50 A KILO.
  52. 215 [153]"  LEFT$OW MUCH CHANGE SHOULD RIGHT$ GET BACK?"
  53. 217 [153]"  (STR$ON'T FORGET THE $ SIGN)"
  54. 220 [141]81:[141]70
  55. 225 [153]"             ON"
  56. 230 [133] A$
  57. 240 [139]A$[179][177]"$15.50"[167]270
  58. 250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  59. 260 P[178]P[170]1:[137]300
  60. 270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  61. 275 [139]Z[178]2[167]G[178]G[170]1:[137]285
  62. 280 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  63. 282 [153]"OPENONON                                        ONONONONONONON"
  64. 283 [137]225
  65. 285 [153]"ONONSYS  (null)HE ANSWER IS      SYS            ":[141]82
  66. 290 [153]"  X                                "
  67. 295 [141]82:[141]90
  68. 300 [153]"PRINT#LOAD               (null)UESTION 2 WAITOPEN":Z[178]0
  69. 305 [153]"  LEFT$OW MUCH CHANGE SHOULD LEFT$ARRY GET
  70. 310 PRINT"  FROM A TWO DOLLAR BILL WHEN HE
  71. 315 [153]"  BUYS TWO PADS AT 75 CENTS EACH?"
  72. 320 [141]81:[141]70
  73. 325 [153]"             ON"
  74. 330 [133] A$
  75. 340 [139]A$[179][177]"50"[175]A$[179][177]"50 CENTS"[175]A$[179][177]"$.50"[167]370
  76. 350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  77. 360 P[178]P[170]1:[137]400
  78. 370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  79. 375 [139]Z[178]2[167]G[178]G[170]1:[137]385
  80. 380 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  81. 382 [153]"OPENONON                                        ONONONONONONON"
  82. 383 [137]325
  83. 385 [153]"ONONSYS  (null)HE ANSWER IS 50SYS CENTS.        ":[141]82[176]
  84. 390 [153]"  2 X .75 = 1.50                     "
  85. 392 [153]"  AND 2.00 - 1.50 = .50             "
  86. 395 [141]82:[141]90
  87. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  88. 405 [153]"  MID$OAN BOUGHT 5 KILOS OF POTATOES AT
  89. 410 PRINT"  85 CENTS A KILO.
  90. 415 [153]"  LEFT$OW MUCH CHANGE DID SHE GET FROM A      10 DOLLAR BILL?"
  91. 420 [141]81:[141]70
  92. 425 [153]"             ON"
  93. 430 [133] A$
  94. 440 [139]A$[179][177]"$5.75"[167]470
  95. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  96. 460 P[178]P[170]1:[137]500
  97. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  98. 475 [139]Z[178]2[167]G[178]G[170]1:[137]485
  99. 480 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  100. 482 [153]"OPENONON                                        ONONONONONONON"
  101. 483 [137]425
  102. 485 [153]"ONONSYS  (null)HE ANSWER IS $5.75SYS            ":[141]82
  103. 490 [153]"  5 X .85 = 4.25                    "
  104. 492 [153]"  AND 10.00 - 4.25 = 5.75           "
  105. 495 [141]82:[141]90
  106. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  107. 505 [153]"  (null)HE GROCER SOLD 3 ORANGES AT 15 CENTS
  108. 510 PRINT"  EACH.
  109. 515 [153]"  RIGHT$F HE WERE HANDED A DOLLAR, HOW MUCH
  110. 517 PRINT"  CHANGE SHOULD BE GIVE BACK?"
  111. 520 GOSUB81:GOSUB70
  112. 525 PRINT"             [145]"
  113. 530 INPUT A$
  114. 540 IFA$<>"$.55"ANDA$<>"55 CENTS"ANDA$<>"55"THEN 570
  115. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  116. 560 P=P+1:GOTO600
  117. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  118. 575 IFZ=2THENG=G+1:GOTO585
  119. 580 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  120. 582 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  121. 583 GOTO525
  122. 585 PRINT"[145][145][158]  [212]HE ANSWER IS 55[158] CENTS.        ":GOSUB82
  123. 590 PRINT"  3 X .15 = .45                   "
  124. 592 PRINT"  AND 1.00 - .45 = .55
  125. 595 [141]82:[141]90
  126. 600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
  127. 605 [153]"  VALLLEN HAD 75 CENTS.  (null)HE BOUGHT A
  128. 610 PRINT"  PENCIL FOR 15 CENT AND AN ERASER        FOR 5 CENTS.
  129. 615 [153]"  LEFT$OW MUCH CHANGE DID SHE HAVE LEFT?"
  130. 620 [141]81:[141]70
  131. 625 [153]"             ON"
  132. 630 [133] A$
  133. 640 [139]A$[179][177]"$0.55"[175]A$[179][177]"55 CENT"[175]A$[179][177]"55"[167] 670
  134. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  135. 660 P[178]P[170]1:[137]700
  136. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  137. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  138. 680 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  139. 682 [153]"OPENONON                                        ONONONONONONON"
  140. 683 [137]625
  141. 685 [153]"ONONSYS  (null)HE ANSWER IS 55SYS CENTS.        ":[141]82
  142. 690 [153]"  15 + 5 = 20                      "
  143. 692 [153]"  AND 75 - 20 = 55
  144. 695 GOSUB82:GOSUB90
  145. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  146. 705 PRINT"  [202]OHN HAD $2.40.  [193]FTER BUYING  A
  147. 710 [153]"  PEN FOR 30 CENTS AND A NOTEBOOK
  148. 715 PRINT"  FOR 80 CENTS HOW MUCH MONEY DID         SHE HAVE LEFT?"
  149. 725 PRINT"             [145]"
  150. 730 INPUT A$
  151. 740 IFA$<>"$1.30"THEN770
  152. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  153. 760 P=P+1:GOTO800
  154. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  155. 775 IFZ=2THENG=G+1:GOTO785
  156. 780 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  157. 782 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  158. 783 GOTO725
  159. 785 PRINT"[145][145][158]  [212]HE ANSWER IS $1.30[158]            ":GOSUB82
  160. 790 PRINT"  .30 + .80 = 1.10                 "
  161. 792 PRINT"  AND 2.40 - 1.10 = 1.30
  162. 795 [141]82:[141]90
  163. 800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
  164. 805 [153]"  LEFT$OW MUCH WOULD ASCRANK HAVE LEFT OUT
  165. 810 PRINT"  OF A DOLLAR IF HE BOUGHT A PEN FOR
  166. 815 [153]"  55 CENTS AND A PAD FOR 20 CENTS?"
  167. 820 [141]81:[141]70
  168. 825 [153]"             ON"
  169. 830 [133] A$
  170. 840 [139]A$[179][177]"$.25"[175]A$[179][177]"25 CENTS"[175]A$[179][177]"25"[167]870
  171. 850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  172. 860 P[178]P[170]1:[137]900
  173. 870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  174. 875 [139]Z[178]2[167]G[178]G[170]1:[137]885
  175. 880 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  176. 882 [153]"OPENONON                                        ONONONONONONON"
  177. 883 [137]825
  178. 885 [153]"ONONSYS  (null)HE ANSWER IS 25SYS CENTS.        ":[141]82
  179. 890 [153]"  .55 + .20 = .75                  "
  180. 892 [153]"  AND 1.00 - .75 = .25
  181. 895 GOSUB82:GOSUB90
  182. 900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
  183. 905 PRINT"  [201]F YOU SOLD 7 METRES OF CLOTH AT
  184. 910 [153]"  35 CENTS A METRE, HOW MUCH CHANGE
  185. 915 PRINT"  WOULD YOU GIVE FROM $3.00?"
  186. 920 GOSUB81:GOSUB70
  187. 925 PRINT"             [145]"
  188. 930 INPUT A$
  189. 940 IFA$<>"$.55"ANDA$<>"55 CENTS"ANDA$<>"55"THEN970
  190. 950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  191. 960 P=P+1:GOTO1000
  192. 970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  193. 975 IFZ=2THENG=G+1:GOTO985
  194. 980 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  195. 982 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  196. 983 GOTO925
  197. 985 PRINT"[145][145][158]  [212]HE ANSWER IS 55[158] CENTS.        ":GOSUB82
  198. 990 PRINT"  7 X .35 = 2.45                   "
  199. 992 PRINT"  AND 3.00 - 2.45 = .55
  200. 995 [141]82:[141]90
  201. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  202. 1005 [153]"  ASCRANK'S FATHER PAID $7.50 FOR A
  203. 1010 PRINT"  SLED AND $2.10 FOR GLOVES.
  204. 1015 [153]"  LEFT$OW MUCH CHANGE DID HE GET FROM         A TWENTY DOLLAR BILL?"
  205. 1020 [141]81:[141]70
  206. 1025 [153]"             ON"
  207. 1030 [133] A$
  208. 1040 [139]A$[179][177]"$10.40"[167]1070
  209. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  210. 1060 P[178]P[170]1:[137]1100
  211. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  212. 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1085
  213. 1080 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  214. 1082 [153]"OPENONON                                        ONONONONONONON"
  215. 1083 [137]1025
  216. 1085 [153]"ONONSYS  (null)HE ANSWER IS $10.40SYS            ":[141]82
  217. 1090 [153]"  7.50 + 2.10 = 9.60               "
  218. 1092 [153]"  AND 20.00 - 9.60 = 10.40
  219. 1095 GOSUB82:GOSUB90
  220. 1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
  221. 1105 PRINT"  [193] STOREKEEPER PUT 6 RED APPLE, 7
  222. 1110 [153]"  GREEN APPLES AND 9 PEARS IN THE         STORE WINDOW.
  223. 1115 PRINT"  [200]OW MANY APPLES WERE IN THE WINDOW?"
  224. 1120 GOSUB81:GOSUB70
  225. 1125 PRINT"             [145]"
  226. 1130 INPUT A$
  227. 1140 IFA$<>"13"THEN 1170
  228. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  229. 1160 GOTO1200
  230. 1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  231. 1175 IFZ=2THENG=G+1:GOTO1185
  232. 1180 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  233. 1182 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  234. 1183 GOTO1125
  235. 1185 PRINT"[145][145][158]  [212]HE ANSWER IS 13[158] APPLES.        ":GOSUB82
  236. 1190 PRINT"  6 + 7 = 13                       "
  237. 1195 GOSUB82:GOSUB90
  238. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  239. 1205 D=W-G:C=10-W
  240. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  241. 1215 [153]"                 ";C
  242. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  243. 1225 PRINT"                 ";D
  244. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  245. 1235 [153]"                 ";G;""
  246. 1245 [141]90
  247. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  248. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  249. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  250. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  251. 1270 [139]R$[178]"R"[167][140]:[137]100
  252. 1275 [140]
  253. 1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
  254. 1285 LOAD"MENU",8
  255. 1290 RUN
  256. 1295 END
  257. 1300 REM BILL CUMBERLAND 91:01:04
  258.